; Music of Zone Part 1 (1989) (Black System) (Luc Guillaume)
; Ripped by Megachur the 27/10/2006

	write "ZONEPAR1.BIN"

music_date_rip	equ &1ba6
music_adr	equ &901f
first_theme	equ 1
last_theme	equ 1	; 1 -> 1

	read "music_header_v1_0.asm"
;
.init_music	; voir aussi 90c3 !!!
;
	ld a,#01
	ld hl,l918c
	call #bcbc	; set amplitude envelope
	ld a,#02
	ld hl,l9196
	call #bcbc	; set amplitude envelope
	ld a,#03
	ld hl,l919a
	call #bcbc	; set amplitude envelope
	ld a,#04
	ld hl,l91a1
	call #bcbc	; set amplitude envelope
	ld a,#05
	ld hl,l91a8
	call #bcbc	; set amplitude envelope

	ld a,#01
	ld (l9187),a
	ld hl,(l91ac)
	ld (l918a),hl
	ld hl,l91ae
	ld (l9188),hl
	ld hl,l9178
	ld bc,#8100
	ld de,l9064
	jp #bcd7	; set up frame flyback event block
.l9064
	di
	push af
	push de
	push hl
	push bc
	push ix
	push iy
	call play_music		;l907b
	pop iy
	pop ix
	pop bc
	pop hl
	pop de
	pop af
	ei
	reti
;
.play_music	; l907b
;
	ld a,(l9187)
	dec a
	cp #00
	jp z,l9088
	ld (l9187),a
	ret
.l9088
	ld hl,(l918a)
	dec hl
	ld a,h
	or l
	jp z,l90c3
	ld (l918a),hl
	ld b,#03
	ld ix,(l9188)
.l909a
	push bc
	push ix
	ld de,#0001
	ld a,(ix+#00)
	cp #00
	jp z,l90ae
	call l90d5
	ld de,#0005
.l90ae
	pop ix
	pop bc
	add ix,de
	djnz l909a
	ld a,(ix+#00)
	inc a
	ld (l9187),a
	inc ix
	ld (l9188),ix
	ret
.l90c3
	ld hl,l91ae
	ld (l9188),hl
	ld hl,(l91ac)
	ld (l918a),hl
	ld a,#01
	ld (l9187),a
	ret
.l90d5
	ld a,(ix+#00)
	or a
	ret z
	ld a,(ix+#04)
	ld iy,l9115
.l90e1
	dec a
	cp #00
	jp z,l90ef
	ld de,#0009
	add iy,de
	jp l90e1
.l90ef
	ld a,(ix+#00)
	ld (iy+#00),a
	ld a,(ix+#01)
	ld (iy+#03),a
	ld a,(ix+#02)
	ld (iy+#04),a
	ld a,(ix+#03)
	ld (iy+#07),a
	ld (iy+#08),#00
	ld (iy+#06),#0f
	push iy
	pop hl
	jp #bcaa	; add a sound to the sound queue of a channel
.l9115
	db #00,#01,#00,#00,#00,#00,#0f,#00
	db #00,#02,#02,#00,#00,#00,#05,#0f
	db #00,#00,#00,#03,#00,#00,#00,#00
	db #0f,#00,#00,#00,#04,#00,#00,#00
	db #00,#0f,#00,#00,#01,#02,#00,#7b
	db #01,#00,#0f,#14,#00,#00,#02,#00
	db #00,#00,#0f,#0f,#00,#00,#00,#02
	db #00,#00,#00,#19,#0f,#00,#00,#00
	db #05,#00,#00,#00,#05,#0f,#00,#00
	db #02,#05,#00,#00,#00,#0f,#0f,#00
	db #00,#00,#05,#00,#00,#00,#0f,#0f
	db #00,#00,#01,#05,#00,#7b,#01,#00
	db #0f,#14,#00
.l9178
	db #f9,#b7,#fb,#b7,#01,#81,#64,#90
	db #00,#00,#00,#00,#00,#00,#00
.l9187
	db #00
.l9188
	dw #0000
.l918a
	dw #0000
.l918c
	db #03,#01,#00,#0a,#0a,#ff,#01,#01
	db #00,#0a
.l9196
	db #01,#0f,#ff,#02
.l919a
	db #02,#0a,#ff,#08,#05,#ff,#04
.l91a1
	db #02,#10,#02,#01,#0f,#ff,#01
.l91a8
	db #01,#0f,#ff,#01
.l91ac
	dw #00c1
.l91ae
	db #01,#7b,#01,#14,#05,#00,#00
	db #0a,#01,#7b,#01,#14,#05,#00,#00
	db #0a,#01,#3f,#01,#14,#05,#02,#00
	db #00,#00,#02,#00,#0a,#01,#7b,#01
	db #14,#05,#00,#00,#0a,#01,#7b,#01
	db #14,#0b,#02,#9f,#00,#14,#0b,#00
	db #0a,#01,#7b,#01,#14,#0b,#00,#00
	db #0a,#01,#1c,#01,#14,#0b,#02,#00
	db #00,#00,#09,#00,#0a,#01,#3f,#01
	db #14,#0b,#00,#00,#0a,#01,#7b,#01
	db #14,#0b,#02,#a9,#00,#14,#0b,#00
	db #0a,#01,#7b,#01,#14,#0b,#00,#00
	db #0a,#01,#3f,#01,#14,#0b,#02,#00
	db #00,#00,#08,#00,#0a,#01,#7b,#01
	db #14,#0b,#00,#00,#0a,#01,#7b,#01
	db #14,#0b,#02,#d5,#00,#14,#0b,#00
	db #0a,#01,#7b,#01,#14,#0b,#00,#00
	db #0a,#01,#aa,#01,#14,#0b,#02,#00
	db #00,#00,#09,#00,#0a,#01,#7b,#01
	db #14,#0b,#00,#00,#0a,#01,#7b,#01
	db #14,#0b,#02,#be,#00,#14,#0b,#00
	db #0a,#01,#7b,#01,#14,#05,#00,#00
	db #0a,#01,#3f,#01,#14,#05,#02,#00
	db #00,#00,#02,#00,#0a,#01,#7b,#01
	db #14,#05,#00,#00,#0a,#01,#7b,#01
	db #14,#05,#00,#00,#0a,#01,#7b,#01
	db #14,#05,#00,#00,#0a,#01,#1c,#01
	db #14,#05,#02,#00,#00,#00,#06,#00
	db #0a,#01,#3f,#01,#14,#05,#00,#00
	db #0a,#01,#7b,#01,#14,#05,#00,#00
	db #0a,#01,#7b,#01,#14,#05,#00,#00
	db #0a,#01,#3f,#01,#14,#05,#02,#00
	db #00,#00,#02,#00,#0a,#01,#7b,#01
	db #14,#05,#00,#00,#0a,#01,#7b,#01
	db #14,#05,#00,#00,#0a,#01,#7b,#01
	db #14,#05,#00,#00,#0a,#01,#aa,#01
	db #14,#05,#02,#00,#00,#00,#06,#00
	db #0a,#01,#7b,#01,#14,#05,#00,#00
	db #0a,#01,#7b,#01,#14,#05,#00,#00
	db #0a,#01,#7b,#01,#14,#05,#00,#00
	db #0a,#01,#3f,#01,#14,#05,#02,#00
	db #00,#00,#02,#00,#0a,#01,#7b,#01
	db #14,#05,#00,#00,#0a,#01,#7b,#01
	db #14,#0b,#02,#9f,#00,#14,#0b,#00
	db #0a,#01,#7b,#01,#14,#0b,#00,#00
	db #0a,#01,#1c,#01,#14,#0b,#02,#00
	db #00,#00,#09,#00,#0a,#01,#3f,#01
	db #14,#0b,#00,#00,#0a,#01,#7b,#01
	db #14,#0b,#02,#a9,#00,#14,#0b,#00
	db #0a,#01,#7b,#01,#14,#0b,#00,#00
	db #0a,#01,#3f,#01,#14,#0b,#02,#00
	db #00,#00,#08,#00,#0a,#01,#7b,#01
	db #14,#0b,#00,#00,#0a,#01,#7b,#01
	db #14,#0b,#02,#d5,#00,#14,#0b,#00
	db #0a,#01,#7b,#01,#14,#0b,#00,#00
	db #0a,#01,#aa,#01,#14,#0b,#02,#00
	db #00,#00,#09,#00,#0a,#01,#7b,#01
	db #14,#0b,#00,#00,#0a,#01,#7b,#01
	db #14,#0b,#02,#be,#00,#14,#0b,#00
	db #0a,#01,#7b,#01,#14,#05,#00,#00
	db #0a,#01,#3f,#01,#14,#05,#02,#00
	db #00,#00,#02,#00,#0a,#01,#7b,#01
	db #14,#05,#00,#00,#0a,#01,#7b,#01
	db #14,#05,#00,#00,#0a,#01,#7b,#01
	db #14,#05,#00,#00,#0a,#01,#1c,#01
	db #14,#05,#02,#00,#00,#00,#06,#00
	db #0a,#01,#3f,#01,#14,#05,#00,#00
	db #0a,#01,#7b,#01,#14,#05,#00,#00
	db #0a,#01,#7b,#01,#14,#05,#00,#00
	db #0a,#01,#3f,#01,#14,#05,#02,#00
	db #00,#00,#02,#00,#0a,#01,#7b,#01
	db #14,#05,#00,#00,#0a,#01,#7b,#01
	db #14,#05,#00,#00,#0a,#01,#7b,#01
	db #14,#05,#00,#00,#0a,#01,#aa,#01
	db #14,#05,#02,#00,#00,#00,#06,#00
	db #0a,#01,#7b,#01,#14,#05,#00,#00
	db #0a,#01,#7b,#01,#14,#05,#00,#00
	db #0a,#01,#7b,#01,#14,#05,#00,#00
	db #0a,#01,#3f,#01,#14,#05,#02,#00
	db #00,#00,#02,#00,#0a,#01,#7b,#01
	db #14,#05,#00,#00,#0a,#01,#7b,#01
	db #14,#0b,#04,#50,#00,#46,#03,#00
	db #0a,#01,#7b,#01,#14,#0b,#00,#00
	db #0a,#01,#1c,#01,#14,#0b,#02,#00
	db #00,#00,#09,#00,#0a,#01,#3f,#01
	db #14,#0b,#00,#00,#0a,#01,#7b,#01
	db #14,#0b,#04,#54,#00,#46,#03,#00
	db #0a,#01,#7b,#01,#14,#0b,#00,#00
	db #0a,#01,#3f,#01,#14,#0b,#02,#00
	db #00,#00,#08,#00,#0a,#01,#7b,#01
	db #14,#0b,#00,#00,#0a,#01,#7b,#01
	db #14,#0b,#04,#6a,#00,#46,#03,#00
	db #0a,#01,#7b,#01,#14,#0b,#00,#00
	db #0a,#01,#aa,#01,#14,#0b,#02,#00
	db #00,#00,#09,#00,#0a,#01,#7b,#01
	db #14,#0b,#00,#00,#0a,#01,#7b,#01
	db #14,#0b,#04,#5f,#00,#fa,#03,#00
	db #0a,#01,#7b,#01,#14,#05,#00,#00
	db #0a,#01,#3f,#01,#14,#05,#02,#00
	db #00,#00,#02,#00,#0a,#01,#7b,#01
	db #14,#05,#00,#00,#0a,#01,#7b,#01
	db #14,#05,#00,#00,#0a,#01,#7b,#01
	db #14,#05,#00,#00,#0a,#01,#1c,#01
	db #14,#05,#02,#00,#00,#00,#06,#00
	db #0a,#01,#3f,#01,#14,#05,#00,#00
	db #0a,#01,#7b,#01,#14,#05,#00,#00
	db #0a,#01,#7b,#01,#14,#05,#00,#00
	db #0a,#01,#3f,#01,#14,#05,#02,#00
	db #00,#00,#02,#00,#0a,#01,#7b,#01
	db #14,#05,#00,#00,#0a,#01,#7b,#01
	db #14,#05,#00,#00,#0a,#01,#7b,#01
	db #14,#05,#00,#00,#0a,#01,#aa,#01
	db #14,#05,#02,#00,#00,#00,#06,#00
	db #0a,#01,#7b,#01,#14,#05,#00,#00
	db #0a,#01,#7b,#01,#14,#05,#00,#00
	db #0a,#01,#7b,#01,#14,#05,#00,#00
	db #0a,#01,#3f,#01,#14,#05,#02,#00
	db #00,#00,#02,#00,#0a,#01,#7b,#01
	db #14,#05,#00,#00,#0a,#01,#7b,#01
	db #14,#0b,#04,#50,#00,#46,#03,#00
	db #0a,#01,#7b,#01,#14,#0b,#00,#00
	db #0a,#01,#1c,#01,#14,#0b,#02,#00
	db #00,#00,#09,#00,#0a,#01,#3f,#01
	db #14,#0b,#00,#00,#0a,#01,#7b,#01
	db #14,#0b,#04,#54,#00,#46,#03,#00
	db #0a,#01,#7b,#01,#14,#0b,#00,#00
	db #0a,#01,#3f,#01,#14,#0b,#02,#00
	db #00,#00,#08,#00,#0a,#01,#7b,#01
	db #14,#0b,#00,#00,#0a,#01,#7b,#01
	db #14,#0b,#04,#47,#00,#46,#03,#00
	db #0a,#01,#7b,#01,#14,#0b,#00,#00
	db #0a,#01,#aa,#01,#14,#0b,#02,#00
	db #00,#00,#09,#00,#0a,#01,#7b,#01
	db #14,#0b,#00,#00,#0a,#01,#7b,#01
	db #14,#0b,#04,#5f,#00,#fa,#03,#00
	db #0a,#01,#7b,#01,#14,#05,#00,#00
	db #0a,#01,#3f,#01,#14,#05,#02,#00
	db #00,#00,#02,#00,#0a,#01,#7b,#01
	db #14,#05,#00,#00,#0a,#01,#7b,#01
	db #14,#05,#00,#00,#0a,#01,#7b,#01
	db #14,#05,#00,#00,#0a,#01,#1c,#01
	db #14,#05,#02,#00,#00,#00,#06,#00
	db #0a,#01,#3f,#01,#14,#05,#00,#00
	db #0a,#01,#7b,#01,#14,#05,#00,#00
	db #0a,#01,#7b,#01,#14,#05,#00,#00
	db #0a,#01,#3f,#01,#14,#05,#02,#00
	db #00,#00,#02,#00,#0a,#01,#7b,#01
	db #14,#05,#00,#00,#0a,#01,#7b,#01
	db #14,#05,#00,#00,#0a,#01,#7b,#01
	db #14,#05,#00,#00,#0a,#01,#aa,#01
	db #14,#05,#02,#00,#00,#00,#06,#00
	db #0a,#01,#7b,#01,#14,#05,#00,#00
	db #0a,#01,#7b,#01,#14,#05,#00,#00
	db #0a,#01,#7b,#01,#14,#05,#00,#00
	db #0a,#01,#3f,#01,#14,#05,#02,#00
	db #00,#00,#02,#00,#0a,#01,#7b,#01
	db #14,#05,#00,#00,#0a,#01,#7b,#01
	db #14,#0b,#04,#5f,#00,#46,#03,#00
	db #0a,#01,#7b,#01,#14,#0b,#00,#00
	db #0a,#01,#1c,#01,#14,#0b,#02,#00
	db #00,#00,#09,#00,#0a,#01,#3f,#01
	db #14,#0b,#00,#00,#0a,#01,#7b,#01
	db #14,#0b,#04,#6a,#00,#46,#03,#00
	db #0a,#01,#7b,#01,#14,#0b,#00,#00
	db #0a,#01,#3f,#01,#14,#0b,#02,#00
	db #00,#00,#08,#00,#0a,#01,#7b,#01
	db #14,#0b,#00,#00,#0a,#01,#7b,#01
	db #14,#0b,#04,#7f,#00,#46,#03,#00
	db #0a,#01,#7b,#01,#14,#0b,#00,#00
	db #0a,#01,#aa,#01,#14,#0b,#02,#00
	db #00,#00,#09,#00,#0a,#01,#7b,#01
	db #14,#0b,#00,#00,#0a,#01,#7b,#01
	db #14,#0b,#04,#77,#00,#fa,#03,#00
	db #0a,#01,#7b,#01,#14,#05,#00,#00
	db #0a,#01,#3f,#01,#14,#05,#02,#00
	db #00,#00,#02,#00,#0a,#01,#7b,#01
	db #14,#05,#00,#00,#0a,#01,#7b,#01
	db #14,#05,#00,#00,#0a,#01,#7b,#01
	db #14,#05,#00,#00,#0a,#01,#1c,#01
	db #14,#05,#02,#00,#00,#00,#06,#00
	db #0a,#01,#3f,#01,#14,#05,#00,#00
	db #0a,#01,#7b,#01,#14,#05,#00,#00
	db #0a,#01,#7b,#01,#14,#05,#00,#00
	db #0a,#01,#3f,#01,#14,#05,#02,#00
	db #00,#00,#02,#00,#0a,#01,#7b,#01
	db #14,#05,#00,#00,#0a,#01,#7b,#01
	db #14,#05,#00,#00,#0a,#01,#7b,#01
	db #14,#05,#00,#00,#0a,#01,#aa,#01
	db #14,#05,#02,#00,#00,#00,#06,#00
	db #0a,#01,#7b,#01,#14,#05,#00,#00
	db #0a,#01,#7b,#01,#14,#05,#00,#00
	db #0a,#01,#7b,#01,#14,#05,#00,#00
	db #0a,#01,#3f,#01,#14,#05,#02,#00
	db #00,#00,#02,#00,#0a,#01,#7b,#01
	db #14,#05,#00,#00,#0a,#01,#7b,#01
	db #14,#0b,#04,#50,#00,#46,#03,#00
	db #0a,#01,#7b,#01,#14,#0b,#00,#00
	db #0a,#01,#1c,#01,#14,#0b,#02,#00
	db #00,#00,#09,#00,#0a,#01,#3f,#01
	db #14,#0b,#00,#00,#0a,#01,#7b,#01
	db #14,#0b,#04,#54,#00,#46,#03,#00
	db #0a,#01,#7b,#01,#14,#0b,#00,#00
	db #0a,#01,#3f,#01,#14,#0b,#02,#00
	db #00,#00,#08,#00,#0a,#01,#7b,#01
	db #14,#0b,#00,#00,#0a,#01,#7b,#01
	db #14,#0b,#04,#47,#00,#46,#03,#00
	db #0a,#01,#7b,#01,#14,#0b,#00,#00
	db #0a,#01,#aa,#01,#14,#0b,#02,#00
	db #00,#00,#09,#00,#0a,#01,#7b,#01
	db #14,#0b,#00,#00,#0a,#01,#7b,#01
	db #14,#0b,#04,#5f,#00,#fa,#03,#00
	db #0a,#01,#7b,#01,#14,#05,#00,#00
	db #0a,#01,#3f,#01,#14,#05,#02,#00
	db #00,#00,#02,#00,#0a,#01,#7b,#01
	db #14,#05,#00,#00,#0a,#01,#7b,#01
	db #14,#05,#00,#00,#0a,#01,#7b,#01
	db #14,#05,#00,#00,#0a,#01,#1c,#01
	db #14,#05,#02,#00,#00,#00,#06,#00
	db #0a,#01,#3f,#01,#14,#05,#00,#00
	db #0a,#01,#7b,#01,#14,#05,#00,#00
	db #0a,#01,#7b,#01,#14,#05,#00,#00
	db #0a,#01,#3f,#01,#14,#05,#02,#00
	db #00,#00,#02,#00,#0a,#01,#7b,#01
	db #14,#05,#00,#00,#0a,#01,#7b,#01
	db #14,#05,#00,#00,#0a,#01,#7b,#01
	db #14,#05,#00,#00,#0a,#01,#aa,#01
	db #14,#05,#02,#00,#00,#00,#06,#00
	db #0a,#01,#7b,#01,#14,#05,#00,#00
	db #32,#00,#00,#00,#00
;
.game_name
	db "Zone Part 2",0
.game_year
	db "1989",0
.game_publisher
	db "Black System",0
.music_author
	db "Luc Guillaume",0
.music_comment
	db "",0

	read "music_end_v1_0.asm"
;
